function [info] = Process(filename)

    display(filename);
    reader = VideoReader(filename);

    nFrames = reader.NumberOfFrames;
    vidHeight = reader.Height;
    vidWidth = reader.Width;

    display(nFrames);
    n = 10; %number of selected frames
    
    %info = zeros(1,35);        
    fretop = zeros(1,n);
    chRatio = zeros(1,n);
    for i = 1:n
        index = i*idivide(int32(nFrames), n+1, 'floor');
        %display(index);
        frame = read(reader,index);        
        fretop(1,i) = FreTop4(frame);
        
        frame2 = read(reader, index+20);
        chRatio(1,i) = ChangeRatio(frame,frame2);
        
        %cur = ProcessHSV(frame);        
        %cur = [cur CompRatio(frame)];
        %display(cur);        
    end
    %display(cur);
    info = [mean(fretop) std(fretop) mean(chRatio) std(chRatio)];